home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib02.dsk / STR$ IN INTEGER.int < prev    next >
Encoding:
Text File  |  1990-01-01  |  441 b   |  11 lines
  1. 1 REM  *** STR$ IN INTEGER ***
  2. 2 REM  BY WILLIAM REYNOLDS III
  3. 3 REM  COPYRIGHT (C) 1980
  4. 4 REM  BY MICRO-SPARC, INC.
  5. 5 REM  LINCOLN, MA. 01773
  6. 10 INPUT X:GOSUB 100:PRINT :PRINT "X = ";X:PRINT :PRINT "X$ = ";X$:END 
  7. 100 AD1=0:AD1= PEEK (204)+ PEEK (205)*256+5:DIM X$(6):AD2= PEEK (40)+ PEEK (41)*256+ PEEK (36):PRINT X;" ";
  8. 110  POKE AD1, PEEK (AD2):IF  PEEK (AD2)=160 THEN 130
  9. 120 AD1=AD1+1:AD2=AD2+1:GOTO 110
  10. 130  POKE AD1,30:PRINT :RETURN 
  11.